200 REM ERROR TRAP ROUTINE
210 REM GET LINE AND MESSAGE
220 GOSUB4000
230 PRINT"[147]ERROR DETECTED"
240 PRINTER$:PRINT"ERROR AT LINE"LN
250 END
3000 DATA 169, 139, 141, 0, 3, 169, 227, 141, 1, 3, 165, 58, 141, 123
3010 DATA 3, 201, 255, 240, 39, 165, 57, 141, 122, 3, 142, 121, 3, 160
3020 DATA 0, 185, 124, 3, 153, 0, 2, 240, 3, 200, 208, 245, 162, 255
3030 DATA 160, 1, 76, 134, 164, 169, 60, 141, 0, 3, 169, 3, 141, 1
3040 DATA 3, 96, 108, 0, 3
3050 RESTORE:FORAD=828TO888:READVA:POKEAD,VA:NEXTAD
3060 T$="GOTO"+STR$(ET)+CHR$(0)
3070 FORAD=1TOLEN(T$):POKE891+AD,ASC(MID$(T$,AD,1)):NEXTAD
3080 SYS875:RETURN
4000 EN=PEEK(889):IFEN>127THENEND
4005 EA=PEEK(41766+2*EN)+256*PEEK(41767+2*EN):ER$=""
4010 ER$=ER$+CHR$(PEEK(EA)AND127):IFPEEK(EA)<128THENEA=EA+1:GOTO4010
4020 LN=PEEK(890)+256*PEEK(891):RETURN